home *** CD-ROM | disk | FTP | other *** search
/ New Masters of Flash / New Masters of Flash.iso / pc / MOVIES / scripts.cst / 00001_Script_main movie script -- next >
Text File  |  2000-09-30  |  4KB  |  178 lines
  1.  
  2. on startMovie
  3.   the keydownscript = "myKeyCheck"
  4.   
  5.   
  6. on myKeyCheck
  7.   set myMember = the castNum of sprite 5
  8.   set myMember = member(myMember).name
  9.   
  10.   if myMember = "yugo" then
  11.     
  12.     case (the key) of
  13.               "1": sprite(5).setvariable("myvar1","1")
  14.                 
  15.                   "2": sprite(5).setvariable("myvar1","2")
  16.                 
  17.                   "3": sprite(5).setvariable("myvar1","3")
  18.         
  19.               "4": sprite(5).setvariable("myvar1","4")
  20.                 
  21.                   "5": sprite(5).setvariable("myvar1","5")
  22.                 
  23.                   "6": sprite(5).setvariable("myvar1","6")
  24.         
  25.               "7": sprite(5).setvariable("myvar1","7")
  26.                 
  27.                   "8": sprite(5).setvariable("myvar1","8")
  28.                 
  29.                   "9": sprite(5).setvariable("myvar1","9")
  30.         
  31.       otherwise
  32.         
  33.         pass        
  34.         end case
  35.     
  36.     
  37.   end if
  38.   
  39.   
  40.   
  41.   
  42.   
  43. on goOne n
  44.   
  45.   set s =  string(n)
  46.   go marker(value(s))
  47.   
  48. on goMarker n
  49.   set s =  string(n)
  50.   go s
  51.   
  52.   
  53. on goNextFrame n
  54.   set s =  string(n)
  55.   go the frame +value(s)
  56.   
  57. on hidetext n
  58.   set s = string(n)
  59.   --set s = value(s)
  60.   if the visible of sprite 44 = 1 then
  61.     set the visible of sprite 44 = 0
  62.     --    repeat with i = 100 down to 0
  63.     --      startTimer
  64.     --      
  65.     --      sprite(s).blend = i
  66.     --    end repeat
  67.     
  68.   else
  69.     set the visible of sprite 44 = 1
  70.   end if
  71.   
  72.   
  73. on blendCheck n
  74.   set s = string(n)
  75.   sprite(44).blend = value(s)
  76.   
  77.   
  78. on goMovie n
  79.   set s =  string(n)
  80.   --if s = "quit.dir" then
  81.   -- quit
  82.   --else
  83.   
  84.   go movie s
  85.   
  86.   
  87.   
  88.   
  89. on movetextup n
  90. set s =  string(n)
  91.   set s =  10--value(s)
  92.   
  93.   
  94.   set mySprite = 53
  95.   set squaremember = the castNum of sprite mySprite
  96.   set squaremember = member(squaremember).name-- of castlib "flash"
  97.   set myMember = the castNum of sprite 44
  98.   set myMember = member(myMember).name
  99.   
  100.   set the antiAlias of member mymember = 0 
  101.   
  102.   if squaremember = "squareslider" then
  103.     
  104.     repeat while the mouseDown
  105.       member(myMember).scrolltop = member(myMember).scrolltop + s
  106.       set w = sprite(44).height
  107.       set x = member(myMember).scrolltop
  108.       set t = member(myMember).height
  109.       set z = t - w
  110.       set y = x.float/z
  111.       set y = y * w
  112.       set sliderposition = y
  113.       set the locv of sprite mySprite = sliderposition + 141
  114.       updatestage
  115.     end repeat
  116.     
  117.   end if
  118.   set the antiAlias of member mymember = 1
  119.   --  set myMember = the castNum of sprite 44
  120.   --  set myMember = member(myMember).name
  121.   --  set the antiAlias of member mymember = 0
  122.   --  
  123.   --  
  124.   --  repeat while the mouseDown
  125.   --    member(myMember).scrolltop = member(myMember).scrolltop + s
  126.   --    updatestage
  127.   --  end repeat
  128.   --  set the antiAlias of member mymember = 1
  129.   
  130.   
  131.   
  132. on movetextdown n
  133.   set s =  string(n)
  134.   set s =  10--value(s)
  135.   
  136.   
  137.   set mySprite = 53
  138.   set squaremember = the castNum of sprite mySprite
  139.   set squaremember = member(squaremember).name-- of castlib "flash"
  140.   set myMember = the castNum of sprite 44
  141.   set myMember = member(myMember).name
  142.   
  143.   set the antiAlias of member mymember = 0 
  144.   
  145.   if squaremember = "squareslider" then
  146.     
  147.     repeat while the mouseDown
  148.       member(myMember).scrolltop = member(myMember).scrolltop - s
  149.       set w = sprite(44).height
  150.       set x = member(myMember).scrolltop
  151.       set t = member(myMember).height
  152.       set z = t - w
  153.       set y = x.float/z
  154.       set y = y * w
  155.       set sliderposition = y
  156.       set the locv of sprite mySprite = sliderposition + 141
  157.       updatestage
  158.     end repeat
  159.     
  160.   end if
  161.   set the antiAlias of member mymember = 1
  162.   
  163.   --  set myMember = the castNum of sprite 44
  164.   --  set myMember = member(myMember).name
  165.   --  
  166.   --  
  167.   --  repeat while the mouseDown
  168.   --    
  169.   --    member(myMember).scrolltop = member(myMember).scrolltop - s
  170.   --    updatestage
  171.   --  end repeat
  172.   --  
  173.   --  
  174.   --  
  175.   
  176.   
  177.   
  178.